home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / s_to_z / spidr100 / setup.arv / OBJTEST.DFM / OBJTEST.txt
Encoding:
Text File  |  1996-09-15  |  5.0 KB  |  184 lines
  1. object TestForm: TTestForm
  2.   Left = 3
  3.   Top = 3
  4.   Width = 600
  5.   Height = 420
  6.   Caption = 'Spider Container Classes Test Program'
  7.   Font.Color = clWindowText
  8.   Font.Height = -16
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   FormStyle = fsMDIForm
  12.   Menu = MainMenu
  13.   Position = poScreenCenter
  14.   Scaled = False
  15.   WindowState = wsMaximized
  16.   WindowMenu = WindowMenu
  17.   OnCreate = FormCreate
  18.   OnDestroy = FormDestroy
  19.   PixelsPerInch = 120
  20.   TextHeight = 20
  21.   object Bevel: TBevel
  22.     Left = 0
  23.     Top = 0
  24.     Width = 592
  25.     Height = 1
  26.     Align = alTop
  27.     Shape = bsTopLine
  28.   end
  29.   object StatusBar: TPanel
  30.     Left = 0
  31.     Top = 349
  32.     Width = 592
  33.     Height = 25
  34.     Align = alBottom
  35.     Alignment = taLeftJustify
  36.     BevelOuter = bvLowered
  37.     Font.Color = clBlack
  38.     Font.Height = -15
  39.     Font.Name = 'Arial'
  40.     Font.Style = []
  41.     ParentFont = False
  42.     TabOrder = 0
  43.   end
  44.   object MainMenu: TMainMenu
  45.     Left = 12
  46.     Top = 28
  47.     object FileMenu: TMenuItem
  48.       Caption = '&File'
  49.       Hint = 'Exit program'
  50.       ShortCut = 0
  51.       object ExitItem: TMenuItem
  52.         Caption = 'E&xit'
  53.         Hint = 'Exit program'
  54.         ShortCut = 0
  55.         OnClick = ExitItemClick
  56.       end
  57.     end
  58.     object TestMenu: TMenuItem
  59.       Caption = '&Test'
  60.       Hint = 'Test forms for various containers'
  61.       ShortCut = 0
  62.       object ArrayItem: TMenuItem
  63.         Caption = '&Array'
  64.         Hint = 'Test TArray container'
  65.         ShortCut = 0
  66.         OnClick = ArrayItemClick
  67.       end
  68.       object HashTableItem: TMenuItem
  69.         Caption = '&Hash && String Table '
  70.         Hint = 'Test THashTable and TStringTable container'
  71.         ShortCut = 0
  72.         OnClick = HashTableItemClick
  73.       end
  74.       object ListsItem: TMenuItem
  75.         Caption = '&Lists'
  76.         Hint = 'Test TUnorderedList, TOrderedList, and TBinaryTree containers'
  77.         ShortCut = 0
  78.         OnClick = ListsItemClick
  79.       end
  80.       object QueueItem: TMenuItem
  81.         Caption = '&Queue && Priority Queue'
  82.         Hint = 'Test TQueue container'
  83.         ShortCut = 0
  84.         OnClick = QueueItemClick
  85.       end
  86.       object StackItem: TMenuItem
  87.         Caption = '&Stack'
  88.         Hint = 'Test TStack container'
  89.         ShortCut = 0
  90.         OnClick = StackItemClick
  91.       end
  92.     end
  93.     object WindowMenu: TMenuItem
  94.       Caption = '&Window'
  95.       Hint = 'Window related commands such as Tile and Cascade'
  96.       ShortCut = 0
  97.       object WindowCascadeItem: TMenuItem
  98.         Caption = '&Cascade'
  99.         Hint = 'Arrange windows to overlap'
  100.         ShortCut = 0
  101.         OnClick = WindowCascadeItemClick
  102.       end
  103.       object WindowTileItem: TMenuItem
  104.         Caption = '&Tile'
  105.         Hint = 'Arrange windows without overlap'
  106.         ShortCut = 0
  107.         OnClick = WindowTileItemClick
  108.       end
  109.       object WindowArrangeItem: TMenuItem
  110.         Caption = '&Arrange Icons'
  111.         Hint = 'Arrange window icons at bottom of main window'
  112.         ShortCut = 0
  113.         OnClick = WindowArrangeItemClick
  114.       end
  115.       object WindowMinimizeItem: TMenuItem
  116.         Caption = '&Minimize All'
  117.         Hint = 'Minimize all windows'
  118.         ShortCut = 0
  119.         OnClick = WindowMinimizeItemClick
  120.       end
  121.     end
  122.     object ViewMenu: TMenuItem
  123.       Caption = '&View'
  124.       ShortCut = 0
  125.       object ArrayTestSource: TMenuItem
  126.         Caption = '&Array Test Source'
  127.         Hint = 'View the source code for the array test'
  128.         ShortCut = 0
  129.         OnClick = ArrayTestSourceClick
  130.       end
  131.       object HashStringTableTestSource: TMenuItem
  132.         Caption = '&Hash && String Table Test Source'
  133.         Hint = 'View the source code for the hash and string table test'
  134.         ShortCut = 0
  135.         OnClick = HashStringTableTestSourceClick
  136.       end
  137.       object ListsTestSource: TMenuItem
  138.         Caption = '&Lists Test Source'
  139.         Hint = 'View the source code for the lists test'
  140.         ShortCut = 0
  141.         OnClick = ListsTestSourceClick
  142.       end
  143.       object QueuePriorityQueueTestSource: TMenuItem
  144.         Caption = '&Queue && Priority Queue Test  Source'
  145.         Hint = 'View the source code for the queue and priority queue test'
  146.         ShortCut = 0
  147.         OnClick = QueuePriorityQueueTestSourceClick
  148.       end
  149.       object StackTestSource: TMenuItem
  150.         Caption = '&Stack Test Source'
  151.         Hint = 'View the source code for the stack test'
  152.         ShortCut = 0
  153.         OnClick = StackTestSourceClick
  154.       end
  155.       object N1: TMenuItem
  156.         Caption = '-'
  157.         ShortCut = 0
  158.       end
  159.       object MainFormTestSouce: TMenuItem
  160.         Caption = '&Main Form Source'
  161.         Hint = 'View the source code for the main form'
  162.         ShortCut = 0
  163.         OnClick = MainFormSourceClick
  164.       end
  165.     end
  166.     object HelpMenu: TMenuItem
  167.       Caption = '&Help'
  168.       Hint = 'Help topics'
  169.       ShortCut = 0
  170.       object SpiderHelp: TMenuItem
  171.         Caption = '&Spider Container Classes Help'
  172.         ShortCut = 0
  173.         OnClick = SpiderHelpClick
  174.       end
  175.       object HelpAboutItem: TMenuItem
  176.         Caption = '&About'
  177.         Hint = 'Version information'
  178.         ShortCut = 0
  179.         OnClick = HelpAboutItemClick
  180.       end
  181.     end
  182.   end
  183. end
  184.